UUU 


UUU UUU 
UUUUUUUUUUUUUUU 
UYUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


AA tt St HH HH A SH HH HH 
AAA tt St Se SH SS HH 
AAA st tH St HH 


EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 


T PPPPPPPPPPPP 
T PPPPPPPPPPPP 
T PPPPPPPPPPPP 

PP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
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SOooooooo°oo 
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oo oo oo 
oo oo oo 
oo oo oo 
leolelelelelelelelolo=) 
Ooooooo[0°oo 
= 
— 
—— 
7 


ee ee ee oe on 
a ed ee ee ee ee oo 


= 
ee 
—— 
— 
nn NNnnw 
nn NNW 
on nw nw 
nn nw nw 
mn nn Mw 
nn nw nw 
mn nw nw 
mM nn mw 
Nunn nn 
NANMNM nw 
uu wus 
rewy yy) ud 
ww wus ww 
wu wus wus 
wu wus wu 
wus wu wus 
ww wus wus 
wu wus usu 


[UCT US TVS TUS IVC TUS Terre Ivelververververvs) 
[UC LUST UU UCT VU TUS Tee verve lvervel servers’) 


— 
en er 
ee ee er 


= 

= 

— 

os 

nw NNW 

nn NNNWM 

nn nw nn 

nn nw nw 

nw nw nn 

nn mn nn 

an ow nn 

nn nw now 
NNMM nw 
NNNwW nn 


mn Munn 
nw Mmn 
nw wn mn 
mw ww ww 
mn uw non 
wn nw now 
ww nn nn 
mn mn vw 
MWnwnnwn ww 
Munn nw 
— —o— 
— —ons 


8 a Os Os Ot Od Od Bg ng Ong Oy OG OG 
8 8 OS OF Os Od Od Od OG OG Ot OG OG OD 


— omens 
at “oo 
a4 
a4 
a4 
a4 
a4 
a4 
ee) 
a4 
SE ee 
aod JOS II I I I 
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RMSTEST USER ROUTINE TO CALL AND TEST RMS’: 16SEP=1984 01:44:23 VAX/VMS Macro v04-00 Pece 
Oba tS PRET Me eT ST Pe ve Wd 


sortie pas test. -028,__RMSTEST,<USER ROUTINE TO CALL AND TEST RMS>,<LONG,GBL> 


‘NLIST MEB 
: MACROS: 


wam*pue MACRO BUFF NAM, SIZE 


-BLKB size 
NAM'BSZ==SIZE 
-ENDM = =BUFF 


MACRO PROMPT STRING NUL 2 
STORE  <STR ING >,<. BYTE 

MOVL 4#$$.T PX CHD IRABSRABS, PBF 
MOVE 4#$$.TMPX{, is MD IRAB+RABS$B_PSZ 
$GET RABSCMDIRA 


RO,L 

BSBW = EOF DET 

’ NB NULL 

TSTw  CMDIRAB+RABSW_RSZ 
NULL 


“ENDM PROMPT 


.MACRO erates e7L 
BLBC  VERBO 
ass. rap ’ ERDORAB+RABSL RBF 


MOVW #$$.TMPX1, CHDORAB+RABS@ RSZ 
$PUT RAB B=CMDORAB, ERR=REPORT _ERROR 


-ENDM TYPE 


“Maceo STORE STRING,PRE 


SOOCOCOOSOOCOSOOSOOOOSOOSOOOSOSOSSSOSOSOSOOSOOSOOOOSOOOCOOOOOOCO 
NIA AE ANS OOO NOAA WIN OOD NIA UE WINS OD NIA NE WIRD OD NA UNE AN OOD NOU 
@ 
m 
o 
r 


CoOOOooOoOoOooooO Oo OOOO OCOCOCOOSCOoOoOOOCOOOOOOOOOOOOOoCoOO 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESEES 


POPMIPINININING 2 OO MP OOOOOOCOOOCOCOCOOOOOOO OO OWWBWWMWOWMOMmocce 


COoOooooooooooQooooooooooQooooooo°ooo 


ee a et td ee a en a ts a ss 


SAV 
*PSECT __ SRMSNAM 
$$. TAPX=. 
PRE ; store any carriage 
ASCII STRING? 3; control info 
$$. THPX1=.-$$. TMPX 
«RESTORE 
-ENDM STORE 


H 2 
RMSTEST USER ROUTINE TO CALL AND TEST RMS; 16=SEP=1984 01:44:23 VAX/VMS Macro v04-00 Page 
Boa §78 £ BLESTSS FORMER BRE ce Hots ks e Ss, 


1 .MACRO BEGIN Ts TSTNAM 
1 STORE < 
1 MOVL us WAPX BEG_DESCR Red > addr 
1 MOVL -TMPX{ ,BEG_DESCR > len 
13 BSBW BEGPUT 
1.4 .ENDM BEGIN 
135 “MACRO FINISH a STNAM 
0 1 : STORE cTSTNAM> 
0 1 MOVL #$$.TMPX,FIN DESCR+4 : addr 
1 8 MOVL 4#$$.TM patie IR_DESCR : len 
0 1 BSBW 3s FIINPUT 
140 .ENDM = FINISH 
14 “MACRO FIELD ELONAM 
0 14 STORE cELDNAM 
000 14 MOVL aS THPX FLD_DESCR+4 : addr 
00 144 MOVL = «#SS.j sTmPxt, FLB_DESCR > len 
0 145 BSBW 3s FLDPU 
000 146 .ENDM—sOFIEL Do 
444 14 «MACRO MBPT ; BPT, maybe? 
ss 148 BLBC VERBOSITY, L 
000 150 L: 
000 131 ENDM MBPT 
$60 138 .MACRO SENN STRING 
000 154 STORE <STRIN 
00 155 MOVB Pitt TMPX1 STICKY_FAB2+F ABSB_FNS 
000 136 MOVL a$$ $THPX, STICKY FAB2+F ABSL_FNA 
900 13 .ENDM = SFN 
$00 13 -MACRO ALWAYS STRING 
00 160 STORE <STRING> 
0 161 MOVL #$$.TMPX CHDORAB+RABSL Rar 
00 16¢ MOVW #$$.TMPX1, CMDORAB+RABSO_R 
000 16 $PUT | RAB=CMDORAB, PRREREPORT WERROR 
000 164 BSBW sR 
900 165 .ENDM ALWAYS 
000005D 809 167 RBRACK=93 
0000038 0000 168 SEM1=59 


12 
RMSTEST USER ROUTINE TO CALL AND TEST RMS : SEP=1984 01:44:23 VAX/VMS Macro V04-00 p 
O58 us 83:54:83 5 oer i, 


P=1984 UETP.SRCIRMSTESTO.MAR; 1 


0000 1 .PSECT __RMSTEST,GBL,LONG 
HE 
174 RELZERO 
178 le es saat ‘DF RMSDEBUG 
179 eae $F AB FAC=<GET>, FNM=TSTSINPUT: ,MRS=132,RAT=CR 
0 173 ea $FAB. —«s FAC =PUT, FNM=TSTSOUTPUT: ,MRS=132,RAT=CR,RFM=VAR 
09 181 CMDIFAB:: 
1 $FAB  —-s FAC=<GET>, FNM=SYSSINPUT: ,MRS=132,RAT=CR 
005 183 CMDOFAB:: 
050 184 $FAB —«sFAC=PUT, FNM=SYSSOUTPUT: ,MRS=132,RAT=CR,RFM=VAR 
OA 185 .ENDC 
OA 1 § CMDIRAB:: 
00A0 (1 $RAB UBF =CMDBUF ,USZ=CMDBSZ,F AB=CMDIF AB, ROP=PMT 
0&4 188 CMDORAB:: 
0 é 189 $RAB —sUBF =CMDBUF ,USZ=CMDBSZ,F AB=CMDOF AB 
ave 
0128 138 INFAB:: $FAB  ——« FAC=GET, FNA=PNSBUF , DNA=DNSBUF , NAM=NAMBLK 
oi 8 194 INRAB:: $RAB UBF=CPYBUF -YSZ=CPYBSZ, F AB= INF AB, RHB=RHBBUF , - 
BP 1 otra, | Mesto 
o1B¢ 199 rrp: oe FAC=PUT, FNA=PNSBUF , DNA=DNSBUF , NAM=NAMBLK 
0¢ 199 “"$RAB —«UBF =CPYBUF ,US7=CPYBSZ,RBF=CPYBUF ,F AB=OUTFAB, ROP=EOF , - 
5 90 sani RHB=RHBBUF .MBC=8 , MBF =1 
025 03 * SNAM ESA=CMDBUF ,ESS=CMDBSZ,RSA=RESBUF ,RSS=RESBSZ 
0280 0 WCDNAM: : 
0 80 04 "$NAM —s«ESA=WCDBUF ,ESS=WCDBSZ,RSA=RWCBUF ,RSS=RWCBSZ 
0310 509 | 
O31 08 STICKY_FAB2: 
1 09 SFAB NAM=STICKY NAMBLK ,F OP=<OFP, CBT, SUP>, - 
1 10 LO=4,FAC=PUT, DNM=<TST$DISK:> 
6 11 STICKY_NAMBLK: 
60 le SNAM  —-RLF=RELATED_NAM, RSA=RESBUF ,RSS=RESBSZ,ESA=EXPBUF ,ESS=EXPBSZ 
C 13 RELATED_NAM: 
14 “SNAM =—sRSA=REL_FILE ; must set RSL at RUN-TIME 
4 15 REL_FILE: 
54 41 44 2E 53.54 06 1 ASCII /TS.D 
0000006 4 6 fet tive Stites. REL FILE 
6 18 SAVE_F ID: 
0000042C 6 0 -BLKB 6 3; to save FID 
C 1 TALIGN LONG 
¢ ¢ OLDFAB: : 
c eae "$FAB ss FNM=<TS.DAT>, DNM=<TST$D1SK:>,NAM=OLDNAM 
7C¢ ¢ “$FAB FNM=<TSTSDISK:RENAMED. TST; 32>,nam=newnam 
cc 6 OLDNAM:: 


02! 


ll 


USER ROUTINE TO CALL AND TEST Res’; , 1 


00000688 
0000078A 
00000889 
00000988 


00000AB8 
00000000 
QOOO0AE4 
09 


000028 


‘wie? 


000008C8 


3A 54 53 45 54 


00000E20 
ieee * 


00000C18*00000200 


AWS COMO CODCOCDDCO COCO DCOCOOONININIM 


Oooo 
> FP OO OOO OOO WIAA ITI 


ba >> 


OWODOOODOWDODODDOOF FAIDWOMOOMOOOMO 


OOOCOCCoCoO 


>>>> 


RLASSSes 
RonunofoRoRoRURoNUnv 2-0 I emmene 


OOD S OONOVOWOOOOL ODL S 


OOOCOoOOoooo 


SNAM 


NEWNAM: : 
SNAM 


OLD_ESBUF : 
OLD_RSBUF : 
NEW_ESBUF : 
NEW_RSBUF : 


.BLKB 


ECHOBF : =ASCI 


CPYBUFDSC: - 


SIDE DS DED DDS DE DD TTT TTT EB BS BB BB IAIN AI IAI 


MOOD NOME WIN OOD NAME WIN O OD NAME WI 0 OONOAUE UW" OOO 
5 
Cc 
~” 


o 

= 

o 

. e . 
sy - >Ow 

-«<=«<<«<< 
4 ht 

oQmm 


SEP 4 4: VMS Macro V04-00 
B7SEb=1986 0431543 FORTE SRCSAMS TESTO MAR: 1 

ESA=OLD_ESBUF ,ESS=NAM$C_MAXRSS,- 

RSA=OLD_RSBUF ,RSS=NAM$C_MAXRSS 

ESA=NEW_ESBUF ,ESS=NAMSC_MAXRSS,- 

RSA=NEW_RSBUF, *RSS=NAMSC- _MAXRSS 

NAMSC_MAXRSS 

NAMSC_MAXRSS 

NAMSC_MAXRSS 

NAMS$C_MAXRSS 

LONG 

uc 80 

RWC ,80 

EXP ,64 

RES ,64 

16 

0 

40 

40 

DIRBUF 

poneteat ed ; must immediately precede 

CMD,132 3; CMDBUF 

80 

DNS ,80 

yP¥ este 

8 3; size of DEFAULT NAME STRING 
3; addr of NAMBLK i 2 Lp + a 
; zero for COPY, 1 for APPEND 
3; 1 if wild card s sy 
: 1 if choice of org 

-j 3 verify switch 

0 ; character of current command 

LONG 


CPYBSZ,CPYBUF 


ree, 
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RMSTEST USER ROUTINE TO CALL AND TEST RMS ; 16-SEP-1984 AX/VMS Macro V04-00 Page 
O38 SrSEp-1986 busets8s LUE TP SRCIANS TESTO MAR ve 3) 
E34 3 
E34 : 5 
E34 ; FAO data 
Fs, 599 
00000E44"0000003F* 0E34 § FAOSTR: .LONG FSTRILEN,FSTRI 
ESC 79 FAOBUF:: 
9 opoare g 0000 3 E f 8 -LONG CMDBSZ, CMDBUF 
4F 49 54 41 ¢ 4S af 38 2é E4 FSTR1: ASCII ‘RMS OPERATION ERROR!/ RMSTEST REL. PC = !XL' 
so 20 ee gf t 4 2 : fo 2 TH 
E 4C€ 45 52 4 E 
es 1 § 4 ES 
3D 20 2E 4 0 4 + 2f | : 4 282 ASCII * ABS. PC. = !XL!/' 
000 90 F OE ; +4 F STRILEN=.-FSTR1 
49 41 46 20 4G 3? 57 4F 44 20 & 2 OE 84 «DMSG: .ASCII ‘RUN DOWN FAILURE - CONTINUING’ 
49 54 GE 4F 435 20 2D 8 45 52 55 4C OEBF 
47 4E 49 55 4E OE 
0000001D : ROMSGLEN=.-RDMSG 
E ; 
OF ; Descriptors for ASCII inserts into messages 
E 


A 3 
AO $ 
AO 
AO 8 
AO 9 
AQ 90 
AO 91 -ALIGN LONG 
EA 35 BEG_DESCR:: 
00000000 00000000 OEA ."] . 0,0 
EA 94 FIN_DESCR:: 
00000000 00000000 OEA 95 -LO 0,0 
EBS 96 FLD_DESCR:: 
00000000 00000000 0€EB 97 «LONG 0,0 
OEB 38 KRF _DESC: 
00000000 00000000 0EB 9 -LONG 0,0 3; KEY OF REFERENCE desc 
EC 0 INTEGER: 
00000000 OEC 1 ‘ 0 3; return from int. input conv 
EC4 § ILLSERDEC: 
00000ED7'00000007" OEC4 ‘ ILLSERL,ILLSER 
ECC 4 EOF_DSC: 
00000ED4'00000003" OECC 5 . EXPEOF LEN, EXPEOF 
46 4F 4 ED4 $ EXPEOF: .ASCII /EOF 
0000000 a4 EXPEOF “LENE. ~EXPEOF 
oR: 
6C 61 67 65 6C 6C 69 OED? 19 ILLSER: .ASCII /illegal/ 
00000007 OEDE 12 ILLSERL=.-ILLSER 


L 2 
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RBgTest USER ROUTINE TO CALL AND TEST RMS ; "9-3 SEP at 9 g): $f $3 OEC Ms Race ere t's Onan: Page (3) a 


RO,. 
CONNECT RAB=CMDORAB 
E9 BLBC 


FF 50 e 
FFO3 CF £334 CF BF rap on error 
FODE' 


ee 


in case of erro 


RO,. 
MOVAL NAMBLK,NAM 
TRAN 


Foe 318 ; 
EDE 316; Setups 
oe fps ot 
0000 443 19 START:: .WORD 0 
EE SOPEN FAB=CMDIFAB 
FF 50 €9 OEEB B RO,. ; trap on error 
333 § SCONNECT RAB=CMDIRAB 
FF 50 €9 OEF BLBC RO,. ; trap on error 
EFC 4 SOPEN FAB=CMDOFAB 
FF 50 €9 4h 5 ; trap on error 
ao 
4 3 BSBW 3; set up verbosity flag 
F 17 
F § 3; Get a command and execute it 
oF i ; 
OF 5 CMD_LOOP: 
FFO2 CF 94 OF $ CL ORGFL 
FIBD CF O01 CA OF26 BICL2 PRABSA ASY, CMDORAB+RABS$L_ROP ; insure cmd output sync. 
BF ge $6 PROMPT RMST TEST: ,NULL=BR_ COPY ; get command 
OF34 30 OF g ECHOIT: BSBW CHO 3 echo cmd Line if non-interactive 
50 foo gf a Hed rf rae Road 2RO 3 pick ue, input character 
3 commen 
cS) 613) «OOF 58 4g BEQL oP. 3; branch if yes 
01 F161 fF a OF? re he CADTRABRABSU_RSZ, #1 3; single byte input? 
FECT CF 50 $8 F64 45 MOVB RO,CMD ; store cmd for possible action 
F253 CF D4 OF69 346 CLRL -FABSL_FOP+OUTFAB : turn off any stale options 
Ore> 348 ; 
OF 6D 49 ; Decide where to go 
cae 
oreo 26 CASE TYPE=B,SRC=RO,LIMIT=#*A/A/,=- 
OF 6D 5 DISPLIST=<TSTSAPP PPEND {STSBLOCK, TSTSCOPY  TSTSDEBUG QMARK, TSTSF ,- 
OF6D 354 TSTSGENERAL H ELP eT TSTS$SHR STSSTICKY, TSTSRELATIVE,- 
OF6D 355 TSTSMTA NET, TSTSORG. T318 SénINt QMARK TSTSRUNDWN, TSTSSETDFLT.- 
OF 6D i QMARK, CTSSETDDIR SETVSW, MARK, TSTSINDEX, QMARK , QMARK> 
4 8 QMARK: ALWAYS <?> ; type always 
FC 2 CMD_LOOP_BR: 
FF57 = 31 FCB 61 Rw CMD_LOOP 
FCB $8 BR_COPY: 
FB23 CF 43 8F 90 OFCB 4 MOV #*A/C/, CMDBUF 3; default to ‘C* command 
FOED cf 6 FD1 65 INCW CHD 1RAB+RABSY RSZ : say 1 char input 
FF78 1 OFDS $6 BRW ECHO 3; gO process 
FD ° 
Hee 
FD $ SETVSW: 
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RBSTEST USER ROUTINE TO CALL AND TEST RMS ; 19-366 -138¢ 8) St: ¢3 Yaaeyne Be Macro ¥04-,00 Page dy 021 


UETP.§RCI RMSTESTO.MAR;1 
’ 000000 over 9 OFD8 BLBC VERBOSITY, QMARK 
FE4S CF FE46 CF F FDF MNEGB VSW,VSW ; toggle the verify switch 
E0 FE6 BRB CMD *LOOP_ BR 


N 2 
RMSTEST USER ROUTINE TO CALL AND TEST RMS ; 16-SEP-1984 01:44: AX/VMS Macro V04-00 Page 
O38 Bree em obs barstiss Loeb SRE sansreStocmaR: 1 ve 8, 
ae 
43 i : COPY routine - copy input file to output file 
FE 79 ° 
FE 9 TSTSCOPY: 
FE ° CF 94 E CLRB 
FE CF 94 FE § CLRB CPYFLG 
FE2B CF F25C CF DE FF MOVAL NAMBLK,NAM 
FF 4 COPY_PROMPT: 
FE2D CF 43 BF 90 444 5 MOVB #*A/C/,CMD ; ne matter how we got here 
FFD 6 : signal this is a COPY 
ES 8 PROMPT <ieek’ FILE:>,NULL=CMD_LOGP_BR 
FB4C CF FACB CF FO9C CF 28 0 9 MOVC CMD IRAB+RABSW_RSZ,CADBUF ,PNSBUF 3; save PRIMARY NAME STRING 
19g BO gh gp ROW LEAR GREE hd shane 
F123 CF FDE9 CF 90 18 35 MOVB DNSSIZ, INFAB+F ABS$B_DNS 3 set DEFAULT STRING Len 
F107 CF «38602 0) «90 + A 9 MOVB #FABSM_CR,INFAB+FABS$B_RAT 3 get implicit LF if TRM 
0500 30 4 Re sense F AB=INFAB,ERR=REPORT_ERROR 3 parse, checking for WC 
03 F22C CF oon f° 1983 38 yh SUAOV WILDCARD ,NAMGL FMB SHARBLK WC 
105C 98 wC: 
FOC6 CF O01 90 105C 99 MOVB #1 ,WCFLG ; it is a wildcard spec 
50 FIF6 CF 9A 1061 400 mOVERL NAMBLK+NAMS$B_ESL,RO 
FOIA CF «=6FAB9 CF) = 550s 2BsC«éd1066 = 4401 MOVC RO, CMDBUF ,WCBBUF ; Save parsed string 
106E t86 ; len must be a word, at least 
F238 CF FIDB CF 0060 8F 28 196 40 MOVC3 #NAMSC_BLN,NAMBLK , WCDNAM 3 copy the whole NAMBLK 
Ih Sg SAM sme aa 
s 7 
107 $36 $S=WCDBSZ,- 
13 40 RSA=RWCBUF ,- 
107 408 ESS=RWCBUF 
FOBC CF 50 dO Hey 409 MOVL RO, INF AB+F ABSL_NAM 3; use WC NAMBLK for now on 
FD89 CF 50 pO 1094 410 MOVL 0,NAM 3; set up for TSTSSHOWNAM 
1099 411 SSEARCH INFAB 3; find Ist one 
00000000 ' &F 30 D1 \}a% tig MPL RO, #RMSS_FNF 3 are there any? 
tee He RLUAYS SNOTSUEH FILES> Palin ait 
0327 31 #I0CF 415 BRW CLEAN ; clean up and start over 
50 eB | oS 419 OOT-ONE a as 0,108 
SA FO4F CF 10D 418 MOVAL INFAB,R10 
el 
FO43 CF 01000000 8F CB 1 ep 4 ? 108: BISL #F ABSM_NAM,FABSL_FOP+INF AB 3 Now can open by FID 
10E 4 § NOWC: SOPEN FAB=INFAB 
50 €8 10F4 4 BLBS RO ; branch on success 
5A FO2D CF 10F7 424 MOVAL INFAB,R10 
ie tr a A ol 
C7E 11 4 § 5$: BSBW TSTSSHOWNAM : 
ay CF 04 11 ; 4 3 CLAL INTEGER ; init return 
33 FD1B cf 3 11 4 BLBC ORGFLG,CON ; skip if not org test 
FO32 CF 3 11 . 450 BITB #F ABSC_IDX, INFAB+F ABS$B_ORG : is input file index file? 
4 1 111 431 BEQL CON 3; eql no 


AOOONO 
io Be Ds Be | 


37 


50 
52 


EFDD 


EFCD CF 
01000000 
AS CF 


Se es es De Os | 


AOMQAONO 
TT HH TA 


CF 


Onn CO-—uUM 
wns MOCO 


So 
o 


AQOOOONC 
aA HOnM 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
? 
? 
? 
7 
? 
? 
? 
7? 
? 


DNA AO ODO NAUN EWN  O OD NA UE WIN O OO NAME WO OONOAOU EW OWONAOUS 


§ PROMPT <INPUT F 
MOVW 


o 
i=] 
2 


PROMPT 


10$: 
208: 


—— 
oO 


AX/VMS Macro V04-00 Page 
UETP.SRC RMS MSTEST 


NV_IN_I 
NRAB+RABSB_KRF 


0.MAR; 1 


; set up descriptor 


RAB=INRAB,ERR=REPORT_ERROR 


BARE? »NULL=10$ 
20 

CLS 
CMD 
CMD 
DNS 
INF 
INF 


or 


INF 
I 
I 
$ 
4 
a 


: Create specific setups 


BRB 
SAME _ORG: 
MOV 


B 
SEQ_ORG: 
M 


a 
o 


ORGFLG, SAME _ORG 


<OUTPUT FILE ORG:>,- 


NULL=SEQ_0 
CM 034 nO 
RO, #*A/R/ 


SEQ_ORG 
#FABSC_REL.OUTFAB+FABSB_ORG 


INF AB+F AB$B_ORG,=- 
QUTFAB+FABSE_ ORG 


#F ABSC_SEQ, OUTFAB+F ABSB_ORG 
HF ABSH MAM, [NE ABSF ABSL._ FOP,RO 
INE AB+F ABSW.M MRS; “OUTEAB+E ABSW_ MRS’ 


YFLG, APPEND 


AB+RABSW_RSZ,CMDBUF , PNSBUF 
eit eed: OUTFAB+F ABSB_ FNS 


tEABSB. RAT, OUTFABSFABSB_ RAT 
+F ABSB_RFM, OUTFAB+F ABSB_RFM 


FAB+FABSL~ALG, OUTFAB+FABSL ALG 
FAB a. BL § 


3 same record attributes 


if plain copy then copy org 
else ask for it, 
default is SEQ" 


; if not 'R', then SEQ 
; make it RELATIVE 


; copy org 


; make it SEQ 


copy ctg bit 


¢ 3 
° = Ld e 4 - RM 
ROSTEst USER ROUTINE TO CALL AND TEST RMS ; 16-SEP 1384 O) 30:63 yarns Macr yos 00 Page 18 


0 
-SEP=1 UETP.SRCJRMSTESTO.MAR; 1 (9) 02 
1 $8 489 APPEND: BEGIN <APPEND> 
EF3B CF 02000000 8F cB 1 ¢ 4 0 B1st¢ #FABSM_CIF,FABSL_FOP+OUTFAB 
1 : 49 CREATE FAB=OUTFAB,ERR=REPORT_ERROR 
034A 30 1 $ 49¢ BSBW RR 
EF OE CF 9900019 Hi D0 1299 49 MOVL RABSM_EOF ,RABSL_ROP+OUTRAB ; connect to EOF 
aa cf 00000 BF CA 1eA2 494 BICL2 af ABSA CIF ,FABSL-FOP+OUTFAB 
O000000'SF EFI gf D1 12AB 495 CMPL FABSL STS+OUTFAB-#RMS$_CREATED ; was file created? 
9 12 1284 438 BNEQ PYNARM :; branch if not 
1286 49 TYPE <OUTPUT FILE CREATED!> 
FB3C CF COEF 6D gf oF 12DF 498 CPYNAM: MOVAL NAMBLK,NAM : for TSTSSHKOWNAM 
OASA 1 ES 49 BSBW _TSTSSHOWNAM 
12E 200 SCONNECT RAB=OUTRAB, ERR=REPORT_ERROR 
02E6 30 12FA 1 BSBW Ss ERR 
12FD 206 
15k 804 
12FD $e COPY_LOOP: 
12FD 06 $GET INRAB 
00000000"eF 30 8k leer 6p Seat COPY DONEC 
0B 8 i 1311 509 BLBS 0,1 
5A E60 CF bE 1314 310 MOVAL INRAB,R10 
gee BNE BEE Eugott tm 
EFO8 CF ee7? CF BO iaF 218 10$: MOVW INRAB+RAB$W_RSZ,OUTRAB+RABSW_RSZ 
1396 514 $PUT § RAB=OUTRAB,ERR=REPORT_ERROR 
02a9 «30 «1 515 BSBW RR 
C1 11 133A 516 BRB COPY_LOOP 
Vege 517 
133¢ 819 
133¢ 520 COPY_DONE: 
133¢) 0521 TYPE <END OF INPUT FILE> 
54 Faae st ? : 1 : § si tte ng : if no WC, then really done 
FAAE CF EF3F CF ODE 1360 524 MOVAL WCORAM;NAM : use WC NAMBLK for duration 
1374 3=6. 525 SSEARCH INFAB : look for next file 
oooo0n00"eF 20 OM l8a5 | 359 Geot NOCRORE FILES 
0B 26 eB 1 $ 5 g BLBS NOTtOS . 
5A ED99 CF E 1 5 MOVAL INFAB,R10 
HS Se GBS pont 
139 § 10$ SOPEN FAB=INFAB,ERR=REPORT_ERROR ; by FID, as set before 
0909 30 13A BSBW _TSTSSHOWNA 
13AA 55.34 SCONNECT RAB=INRAB, ERR=REPORT_ERROR 
FFF 1 1388 2 5 W COPY_LOOP 
096 6 1 BE $ DONE: BSBW  CLS_OUT_FL 
06A 13¢ CLSINF: BSBW CLS7IN_FL 
0089 30 134 8 BSBW REPORT END 
FB58 1 C7 3 BRW CMD_LOOP 
13CA 541 NO_MORE_FILES: 
13CA 4¢ TYPE <NO MORE FILES> 
061 30 13F3)0— 54 BSBW  CLS_OUT FL ; CLOSE output file 
087 1 Fb 44 BSBW REPORT_END 
ED2A CF 01000000 8F CA 13F 45 CLEAN: BICL  #FABSM"NAM,FABSL_FOP+INFAB ; mo more open by FID 


dD 3 
RMSTEST USER ROUTINE TO CALL AND TEST RMS ; 16-SEP-1984 01:44: AX/VMS Macro V04-00 Page i1 
O08 o7SEb= 1984 B4:34593 LOE TP. SRC RMSTESTO.MAR; 1 ’ (9) 
ED47 CF EE4A CF ODE MOVAL NAMBLK,INFAB+FABSL_NAM ; can use ordinary NAMBLK again 
FAI2 CF EE43 ff BF MOVAL NAMBLK,NAM ; ditto 7, ' 
FBOF BRW CMD_LOOP 


APPEND command 


STSAPPEND: 
FAOE CF 01 «90 MOVB #1,CPYFLG 
FAB CF 94 CLRB so WCFLG 
FOFF CF EE30 CF DE MOVAL NAMBLK,NAM 
FBD1 BRW COPY_PROMPT 


; choice of org for output 
FOFD CF 01 90 MOVB #1, ORGFLG 
FBBA 31 PY 


BRW TST$CO 
CLS_IN_FL: 


$DISCONNECT RAB=INRAB, = 
ERR=REPORT_ERROR 


: routine to CLOSE input file 


DP OO 00000909 INIA OH UI IRPOPOPONENONONN 4 OO 


ee 8 ee ee a ed ed ed dd dd ed dd dd dd td 
Fe Dale ed del dl Dele ee el eh tal ta te a ak ak Stat tak tk et et et tk et ek et ek et et tt tt 
DONAUNOOO NOD ONNNOWPN VM MMM OOO WO COW NIIAIAIAOW—OP 
PUP PV PVPV PVPS USUI USS TSS USUI SISOS ISOS 
090909 09 09 09 SIN NINN NNN NPA A AAA AAA MITT 
MEW OC ODNAULS WN CO DOONAN WN OWOOVNAU ES WH OOOnNO 


O1A1 30 BSBW ERR 
$CLOSE FAB=INFAB,ERR=REPORT_ERROR 
018D 30 BSBW ERR 
05 
CLS_OUT_FL: 
$DISCONNECT RAB=OUTRAB, ERR=REPORT_ERROR 
0178 30 BSBW 
$CLOSE FAB=OUTFAB,ERR=REPORT_ERROR 
0164 30 BSBW ERR 
05 
REPORT_END: 
12 FOA2 CF ED BLBC CPYFLG,CPYEND ; branch if doing copy 
FINISH <APPEND> 
05 RSB 
CPYEND: FINISH <COPY> 
05 RSB 


03 saaas Pj 5S 


3 

FA42 gi 

FOIA CF «6EBBF CF) = 90 

FOB8 CF FSE7 CF F916 CF ¢ 
FAOF 1 


00000000'8F 50 01 

AB 13 

5A EB34 CF BF 
QO0E 

0070 8 30 

05 

OFFC 


Gots 80 
04 


OMMMMMMmMmMmmoCoWW >} > 


IWWNIWWIWWIWOAN MOOOOOOOCOVTMWOODO 


IUFULV IU LULULOIUIVSUSUSU SUSE SUSU SESS USSU TTT EE BB BS BB 


NP AO MMIII & nt 


a a a a ed td td ts tt = 8 = = = = = 2 = od 2 2 
MMMNS POLL L LLL LLL PWMOTC DAMMAM MNOWoOow 


i. 
RMSTEST USER ROUTINE TO CALL AND TEST RMS; 16-SEP-1984 01:44:23 VAX/VMS Macro V04-00 
A g- Be $4:37:93 RMS 


SEP-1984 04: UETP.SRCJRMSTESTO.MAR; 1 
TSTSDEBUG: 
BLB VERBOSITY, 10$ 
BRW ARK 
108: TYPE <RMS DEBUG> 
BPT 


BRW CMD_LOOP ; more code to go here 


Set up DEFAULT NAME STRING 


STSSETDFLT: 
ROMPT <DEFAULT FILENAME STRING:> 
MOVB CMDIRAB+RABSW_RSZ,DNSSIZ 
MOVCS ONSSI 
R CMD_L 


2, CMDBUF -DNSBUF 


BRW “LOOP 
CLOSE_UP: 

ALWAYS CEOF] 

SDISCONNECT CMDIRAB 

SCLOSE CMDIFAB 

$CLOSE CMDOFAB 

SEXIT_S 


EOFDET: 
CMPL RO, #RMS$_EOF ; is it EOF? 
BEQL C 3 must be 
MOVAL CMDIRAB,R10 3; some other error 
BSBW REPORT_ERR ; report it 
BSBW ERR 3 continue? 
RSB ; that's it 
REPORT_ERROR: : 
; REPORT_ERROR - Subroutine to report error 
: AST to call report 
» WORD ay ne Rake R5,R6,- 
R7,RB.R9_RIO,RII> 
movL 4 (AP)‘R16 : structure from RMS call 
BSBW REPORT 


‘2 
RMSTEST USER ROUTINE TO CALL AND TEST RMS ; 16-SEP-1984 01:44: AX/VMS Macro V04-00 Page 13 
O38 ~3Eb21 $82 4:31:83 LOE TP. SRC RMSTESTO.MAR; 1 : (10) 


1 43 gre ; REPORT_ERR = Entry point to enter report in-line, as opposed to by AST 
! re eg 3 save RO, then push STV and RO to set up for CALL to REPORT 
157 47 * 
50 ODD 157 8c PUSHL RO ; error code in RO 
15 rf 3; not in structure 
0c 84 44 1 G2 pute FABSL_STV(R10) 
1 34 SWAIT CMDORAB 
14 11 159 65 BRB R 
133 tt REPORT: : 
138 £36 3 
159 657 ; REPORT - Eyprqutine to print out error 
159 $38 : R10 is the structure at fault 
1395 800 * 
159 661 ASSUME FABSL_STS EQ RABSL_STS ; could be either structure 
08 AA DD 159 666 PUSHL FABS$L_STS(R10) 3; Save status code 
159 66 SWAIT CMDORAB 
OC AA OD 1349 664 PUSHL FABSL_STV(R10) ; set up for LIBSPUT_MESG 
08 AA DD 115A 665 PUSHL FABSL_STS(R10) 
00 OD 1348 666 R PUSHL #0 3 no. of args. for FAO 
par ren0s * st DD 115A 667 PUSHL #SHR$_RMSERROR+<RMSTESTA16>+3 ; “'RMS ERROR’ message 
00000000 ' GF 4 FB 13AE 008 CALLS #4,G*CIBSSIGNAL o¢ cen ta te 
3 e error, 
1585 670 ; print filename 
00000000 ' 8F § } 1383 ef cor (SP) ,#RMS$_FNF ; error is on the top of the STACK 
58 28 AA is 13¢¢ ers MOVL FABSL_NAM(R10),R11 3 prety A OS FAB, 
; ge a 
| wae: Be 675 BEQL 10$ : if no NAMBLK, exit 
0B AB «9B «O15C4 of8 MOVZBW NAM$B_ESL(R11),- ; length of FILENAM 
EB3C CF 15€7 67 RABSW_RSZ+CMDORAB 
14 13 15CA of8 BEQL 10$ ; if there is no name, exit 
oc AB bdO 15C€C 67 MOVL NAMSL_ESA(R11),- 3; addr of FILENAM 
EBSA CF 15CF 680 RABSL_RBF +CMDORAB 
15D2 681 $PUT CMDORAB 3; print it 
FF 50 €9 1500 6 ¢ BLBC ae ; trap if error 
01 + ®BA 12 685 10$: POPR #*A<RO> 3; restore RO 
05 15€ 684 RSB 
He ae 
V3 6 5 : This is a routine to ask the interactive user if it is desired to continue. 
Ize ? : ; The ABSOLUTE and RELATIVE PC'S are displayed and then ‘CONTINUE’ is asked. 
1363691 ERR 
01 50 9 13 $36 BLBC RO,ERR1 
..4 B¢ 69 RSB 3; return if no error 
Vee 694 ERR1: : (secondary entry point in 
15E7 = 695 ; gene RO might have been OK) 
00000000'8F 50 D1 15€7 24) CMPL RO, #SS$_ILLSER : if illegal service, no 
1D \¢ 1 33 69 BNEQ 1 ; mesg output yet 
52 6€ 14 C35 15F o28 SUBL3 #20,(SP),R2 3 $O output one 
28 DD 15F4 $2 PUSHL R ; better save RO 
DD 15F6 00 PUSHL R ; PC of error 


6 3 
iil USER ROUTINE TO CALL AND TEST RMS ; 1g $66- 138% 1:54:93 AX/VMS Macro V04-00 Page 14 
02 -SEP-19 :21: 


4 04 UETP.SRCIRMSTESTO.MAR; 1 (10) 
F8C8 CF «OF: «O1SF8 4 PUSHAL ILLSERDEC ; descriptor 
2 odd i15FC PUSHL ; ; number of args 
03€90002' BF DD 1 ff PUSH #SHRS_SYSERROR+<RMSTEST*#65536>+2 ; mesg ID 
00000000 ' GF 4 FB 16 : CALL eet 
1 ®BA 1? . P82 aos POPR #*A<RO> ; restore RO after mesg 
rf 6 14 cS 1600 4 $ ete | #20, (SP),-(SP) 
re oe ore Har RRL, FEAR a8 cm 
Fare CF F 1610 iY PUSHAW CMDORAB+RABSW_RSZ 
FROF CF F 1621 1 PUSHAQ FAOSTR 
G0000000"Gr 05 4 1 ; 1 cats #5,G*SYSSFAO 
EAD6 CF F4C1 CF B 160F 714 MOVAB CMOBUF , CHDORAB+RABSL_RBF 
FF 50 €9 Weer Pe tS * ees 
2E OOOOOOOO'EF E9 1644 i$ BLBC VERBOSITY ,POPPC 
1648 18 PROMPT <CONTINUE?>,NULL=POPPC 
59 8F F480 ff 7 19 £3 He 9 9 lieth 
O§ 1878 721 RSB 3 continue 
01 BA 167 7 § POPPC: POPR #*M<RO> 3 remove RETURN PC 
43 8F F7AB 4 7} 1978 4 ? Hes i Mia : is it a copy command? 
1683 725 $SCLOSE FAB=INFAB ; if so, clean up, ignoring errors 
lone 7 § aCLOSE FAB=OUTFAB 
EABATTAT Ch EBA CE OBE yeas. MOVAL NAMBLETINFABSEABS. NAAN A> 
F772 CF EBA3 CF E 1808 7 3 MOVAL NAMBLK.NAM bs ; make it completely restartable 
F86F 31 1680 730 CLBR1: BRW CMD_LOOP 
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RMSTEST USER ROUTINE TO CALL AND TEST RMS ; 16-SEP-1984 01:44: AX/VMS_M ere v04-00 Page 15 
B38 si : 873 =] $bc 34:88 UETP.SRCJRMSTESTO.MAR; 1 si (12) 


168 : 
168 : 
16B é ; ‘U' command - Set default user file directory 
168 736 
1683 7 5 TSTSSETDDIR 
1683 7 : PROMPT <DEFAULT UFD:> NULL=CLBR1 
F496 CF F415 cf E9E6 CF 98 1608 7 MOVC3  CMDIRAB+RABS$W_RSZ, CMDBUF , PNSBUF 
2. -E9DC cf C 16€ 40 MOVZWL CMDIRAB+RABSW-RSZ.R2 ; copy NAME STRING 
EA70 CF 52 BO 16€ 41 MOVW  R2,INFAB+FABSB FNS : and Length 
EA6D CF BG Tee 4¢ CLRW INFAB+FABSB_DNS 
F400 gf DF 16F t PUSHAL CMDBUF ; build descriptor for new 
2 DD 16F4 44 PUSHL R2 ; default dir (addr & _renath) 
F3EA CF ODF 1666 49 PUSHAL DIRDESC ; yeh orge te for SET D 
F3BA CF DF 16FA 2S PUSHAL DIRLEN + output lenuth. 
08 AE OF igre £8 a {aaa NDF. RNSOEE aeaus ; addr of descriptor 
00000000'EF 03 FB 1791 £30 CALLS »SYSSSETDDIR : set default directory name 
1708 73 CALLS #3, RMDSSETDDIR 
ee Elen oo Fee 
SA ease CF : 170D 736 MOVAL INP AB R10 
Hee 3 IE fee eee Begotten 
FBO? 1 1718 759 CLBR2: BRW CMD_LOOP 3; get next command 
171B 760 
AB eb 
1718 788 BADUFD: ALWAYS <BAD DIRECTORY SPEC!> 
11 TR 78S aaapansetne Ce 
1730 166 FIELD <PARSED DIRECTORY SPEC> 
cO 11 1756 768 BRB CLBR2 


1 3 
fie USER ROUTINE TO CALL AND TEST RMS ; 197 360-138 O) 30:83 AX/VMS Macr 


9 v04-00 Page 16 
4 UETP. SRCIRMSTES ave 


TO.MAR; 1 (14) 


; "R' command = Call I/0 RUNDOWN 


é TSTSRUNDWN: 

03 00000000'EF gS 6 BLBS VERBOSITY,10$ 
FB44 7 BRW QMARK 

108: 

7 

7 

7 


1 
1 
1 
1 
1 
1 
1 
F 
1 ; TYPE <1/0 RUNDOWN = IF SUCCESSFUL NO MORE IMAGE 1/0!> 
00 oD 1 0 RD! PUSHL # ; RUNDOWN image only 
F69D CF DF 1788 PUSHAL cPYBUEDSC 
178F IF NDF RMSDEBUG 
00000000'GF 02 FB f ; CALLS #2,G*°SYSSRMSRUNDWN 
1796 5 CALLS #2,G*RMDSRMSRUNDWN 
1796 6 -ENDC 
4550 €8 1 $ 7 BLBS  RO,RD2 
1 788 
1799 789; 
1799 790 ; Got a problem - Try writing to CMD 
1799 =791; 
1799 13¢ 
E96C CF FOE6O CF DE 1799 79 MOVAL RDMSG,CMDORAB+RABSL_RBF 
£961 CF. 1D B80 17A0 794 MOVW  #RDMSGLEN, CMDORAB+RABSW_RSZ 
17A5 795 $PUT §RAB=CMDORAB 
D650 «EB 1780 196 BLBS  RO,RD 
65 10 1783 79 BSBB = REOPEN_CMD 
1785 798 TYPE | <RUNDOQN ERROR - CONTINUING> 
AB 11 «#17DC~=—799 BRB RD1 
17DE 800 
17DE 801; 
17pe 8 RUN DOWN succeeded - REOPEN command input channel 
17DE 804 
3A: 120 05 RD2: BSBB REOPEN _CMD 
17E 6 TYPE <RUN DOWN SUCCEEDED> 
E91F CF B84 1807 807 CLRW =—ss INFAB+FABSW_IFI 
ESAF CF B84 1808 808 CLRW OUTFAB+FABSO_IFI 
£967 CF B84 180F 809 CLRW INRAB+RABSW TSI 
E9F7 CF 4 1813 810 CLRW  OUTRAB+RABSO_ISI 
F708 31 #1817 811 BRW CMD_LOOP 
181A 1 
181A 13 3 
1B1A 814 
181A 815 REOPEN_CMD: 
E7E4 CF 64 181A 1 CLRW  CMDIFAB+FABSW_IFI 
£880 CF B84 181 1 CLRW CMDIRAB+RABSW~ISI 
1 18 SOPEN CMDIFAB 
FF 50 €9 1 1 BLBC RO,. cP 
1 0 CONNECT CMDIRAB cP 
FF 50 €9 1838 1 BLBC RO,. cP 
—810 CF 64 1 : CLRW © CMOOFAB+F ABSW_IFI CT 
EBAO CF B4 184 CLRW CMDORAB+RABSW-ISI DE 
184 4 SOPEN CMDOFAB DI 
FF 50 €9 1851 § BL RO,. DI 
1854 6 CONNECT CMDORAB DI 


RBSTEST 


FF 50 


USER ROUTINE TO CALL AND TEST RMS’; ' 


E9 1885 He 
05 188 3 


$oSEP=198e 04:2: 


BLBC RO, 
ALWAYS <COMMAND FAB REOPENED.> 
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F587 CF__ EAC8 a pF 


UEP PEELE EEE EWI 


NOME AN 9 OS OONA UE WIN OS OD NAME WIN SO ODO EWN 0 OONOAOU EW OO OONOU Swine 


4 
EB23 CF 8 
A 
re 
i 
FD23. = 30 
01000000 8F C8 
EAGB CF 
FDO8 30 
FCF6 30 
0059 30 


EAOD CF 01000000 8F CA 
FCCA 30 

00000000'8F 50 O01 

Pe 

FC9E § 30 

ge 10 

Pm | 


ma a a ek ak ak a at ot ts I et = = = = — 2d 2) 2s — = ss ss ds —  ) 2) 
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SrSEp=1986 04:31:83 


"K" command - Set STICKINESS of 
- Then test REMOVE 
- Also tests CONTIG 


K 3 
CALL AND TEST RMS ; AX/VMS Macro V04-00 
TP. SROIR 


ATED FILE 
“BEST-TRY 6 on create 


TSTSSTICKY: 
BEGIN 


<RELATED FILENAME AND DIRECTORY TESTS> 
MOVAL STICKY_NAMBLK, NAM 
MOVB #REL_FILE_SIZE,NAMS$B_RSL+RELATED.NAM 


Check for separate PARSE followed by CREATE 


FNM=TSTSOISK:CITS.* 
RELATED FILE SPEC=TS.DAT 


.*;1> 
TICKY_FAB2,ERR=REPORT_ERROR 


mop eSTICKY FAB2 
TICKY_FAB2,ERR=REPOR’_ERROR 


=STICKY_FAB2,ERR=REPORT_ERROR 


a a a mous 


OoOwrz>>r"2>Yrm 
m 


sad 
oO 
zm 
m 
ae 
os 
m 
Bn wmMnaAannA 


CREATE . File with FNM=TSTSDISK:.;1 
RELATED FILE SPEC = TS.DAT 
hepetuily getting TS.DAT w/ current DEV and UIC 


SFNM <;1> 3; new filename 
3; NOTE: Can't have .;1 
; since Frag implies 
‘ qupi felt filetype 
3 albeit null) 

BICL2 #FABSM_NAM,FABSL_FOP+STICKY_FAB2 

zrennve FAB=STICKY. FAB2,ERR=REPORT ERROR 

CMPL RO, #RMS$_SUPERSEDE 

BEQL OKSUP 

FIELD <STS (NOT = SUPERSEDE)> 

OKSUP: se Ose FapSETICEY FARE -ERRSREPORT ERROR 
BSBB MORE ; verify RESULTANT NAME 
BRB NEXT 


; Verify RESULTANT NAME 


MSTESTO.MAR; 1 


REL 
Breese ENTER, SEARCH in that order 


n case of FNF error 


; do CREATE with NAM BLK 


Page 


3 special test for wildcards 


18 
(16) 


$ 
Ss 
s' 
S’ 
S’ 
Ss’ 
$ 
$ 
5 
: 
S 
§ 
§ 
§ 
s 
s 
s 
s 
S 


a ass a a a at st tt ot ot 


~ 
=< 
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RMSTEST USER ROUTINE TO CALL AND TEST RMS ; 16-SEP-1984 01:44: AX/VMS Macro V04-00 Page 19 
ne ~$ee= 1382 B) 34:98 UETP.SRCJIRMSTESTO.MAR;1 ° (16) 
194 
F116 CF 0040 8F 5D 8F A 194 i MORE LOCC #RBRACK ,#RESBSZ,RESBUF 3; try to find right bracket 
Ot BEGL «108 | Era Se inee ve 
50 EAC8 CF D 1 91 MOVAL PSL _FILE RO 
1 Dé 1959 36 INCL 6 3 pass bracket by 
52 8 3 1958 9 MOVL ane Fig SIZE,R2 
81 1 195 94 5$: CMPB (RO)F,(RIT+ ; comp NAM and TYP 
93 1g 136 95 BNEQ 10$_—=i« 
F8 F 1 38 SOBGTR R2,5$ 
3B (61S O99 6 9 CMPB sé (R11) , SEMI 3 end of RES too? 
01 i 196 a8 BNEQ 10$ 
0 12 9 RSB 3; worked 
C 00 10$: FIELD <RESULTANT STRING> 
197D 901 MBPT 
FS9A «31-1985 90¢ BRW CMD_LOOP 
1388 90 
198 904 ; 
1988 905 
1988 906 NEXT: TYPE <STICKY CREATE WORKED> 
19AF 907 
19AF 908; 
19AF 909 ; CREATEd it alright - Now enter it checking for lower version 
19AF 910 ; and SEARCH for it 
Beg 
E9B7 CF 02 82 19AF 318 SUBB2 #2, STICKY_NAMBLK+NAMSB_ESL ; get rid of VERSION in EXP STR 
130) aie ; just for good measure zero 
E984 CF D4 19B4 916 CLRL STICKY_FAB2+FABSL_FNA 3 no PRIMARY NAM STRING 
E988 CF 94 1988 917 CLRB STICKY FAB2+F ABSB_FNS ; therefore clear Length 
19BC 86918 SENTER FAB=STICKY_FAB2,- ; enter takes EXP STR as input 
19BC 919 ERR=REPORT_ERROR 
FC1S) «630 «3©19CB) =: 920 BSBW ERR 
13 E9C1 CF OE EO 19CE 921 BBS #NAMSV_LOWVER STICKY NAMBLK+NAMSL_FNB, SOK 
19D4 9 $ FIELD <LOWER- VERSION BIT IR FNB> 
49 11 19€5 9 RB REM_SRCH 
19E7 924 SOK: 
50 E975 CF DE 19€7 925 MOVAL STICKY_NAMBLK ,RO 
Oc AO FO7B CF DE 19EC 926 MOVAL RESBUF NANSL ESA(RO) 
0B AO 03 AO 90 19F¢ 927 MOVB $B_RSL(ROY,NAMSB_ESL (RO) 
19F7 928 SSEARCH FAB=STICKY_FAB2,ERR=REPORT_ERROR 
FBDA 30 1A06 929 BSBW RR 
iA 9 ‘ 0 TYPE <ENTER WITH LOWER VERSION AND SEARCH OK > 
1A 6 : 
1. 4 ? ; Now remove that newest entry and SEARCH for it, hoping the SEARCH fails 
1A30 86935 
1A g § REM_SRCH: 
50 €92C CF DE 1A 3 MOVAL STICKY Ware. «BP 
E9EB CF $3 ni DO 1A 8 MOVL NAMSW_FID(RO) ,SAVE_FID 
E9E9 CF 28 AO BO 1A3B 9 MOVW —_NAMSW7FID+4(RO) ,SAVE_FID+4 ; save FID for Later 
1A41 940 SNAM_STORE NAM=STICKY_NAMBLK ,- : zero FID and CONTEXT 
1A41 30) FID=#40 ,WCC=40 
1AGF 46 SREMOVE FAB=STICKY_FAB2,- : remove the DIR. entry 
1AGF 694 ERR=REPORT—ERROR 
FB82 30 1A5E 944 BSBW ERR 


re 


mM 3 
RMSTEST USER ROUTINE TO CALL AND TEST RMS ; 16-SEP-1984 01:44: AX/VMS Macro V04-00 Page 20 
Boa ast 1 1:34:93 UETP.SRCJRMSTESTO.MAR;1 ° (99) 
50 E8FB CF DE 1A } 45 MOVAL STICKY_NAMBLK,RO 
OC AO EFFE CF DE \; e 2S MOVAL RESBUF ,NAM L_ESA(RO) : Sarg Seen, vam STR ADDR 
0B AO 03 AO 90 Tage 4 MOVB = NAM$B_RSL(RO) ,NAMSB_ESL (RO) ’ 
1A 4 SSEARCH STICKY_FAB 3; look for it 
wt CF FA8& GF i) Are 5 MOVAL EXPBUF ,NAMSL_ESA+STICKY_NAMBLK 
00000000 ' 8F 28 b} 1A ; 82) Hy RO, #RMSS_NAF ; better not be there 
00000000 ' 8&F 38 o} 1A ; i tat RO, #RASS _NORMAL ; but it was 
1A9 55 TYPE <SYSSREMOVE DIDN'T DO ITS JOB> 
33 11 ABC 328 BRB OUT 
08 50 ~=s«éEB ya 57 CHK: BLBS RO,10$ 
5A £848 CF F 1AC1 958 MOVAL STICKY_FAB2,R10 
FABS ; TACE 959 BSBW REPORTIERR 
FB17 0 1AC 960 BSBW 
SE #8 age : 
tac ses a TYPE | <REMOVE AND SEARCH OK> 
He 965 SNAM_STORE NAM=STICKY_NAMBLK,=- 3; restore FID 
1AF oe8 FID=SAVE_FID 
eee 
1804 969 : Now test SRENAME function by renaming TS.DAT to RENAMED.TST;32 and back. 
1Bod ort 
1B04 af6 SNAM_STORE NAM=OLDNAM,ESL=40,RSL=40 
1B0F 97 SNAM_STORE NAM=NEWNAM ,,ESL=40,RSL=40 
cent 30 1BiA ore seenane OLDF AB=OLDF AB, NEWF AB=NEWF AB, ERR=REPORT_ERROR 
1882 976 TYPE <FILE RENAMED!> 
F2CC CF 95 185 977 TSTB VSW 
62 19 1B5D 978 BLSS RERENM 3; omit printout if not wanted 
1B5F 979 TYPE <OLD NAME :> 
ee ee mee 
+4! $8 TYPE <NEW NAME :> 
rae cr eories 5 He cea Ht 
ya 3Be RERENM: SRENAME OLDF AB=NEWFAB,- 3; re-rename file 
1BC1 a89 NEWF AB=OLDFAB,ERR=REPORT_ERROR 
FAOA 30 1806 9 BSBW ERR 
1¢00 3 8 TYPE <ORIGINAL FILENAME RESTORED> 
1C 990 ; 
(a 933 3; Now OPEN the original file by FILE ID and DELETE it on CLOSE by FID 
1¢ 93° 
1 0 8F c8 1C 934 BISL #F ABSM_NAM,- ; OPEN by FID 
. wfh et 1€06 995 FABSL FOP+STICKY_FAB2 J 
003000 F CA 1C 44) BICL #F ABSA CBT! FABSM_CTG,- 3; to do CBT test 
E702 CF 1COF 699 FABSL_FOP+STICKY-FABC 
1C § 38 SOPEN FAB=STICKY_FAB2 - ; OPEN orig. file 
FOBF «3 1634 1 } BSBW FRRSREPORT ERROR 
11 E6EB CF 96E Hi 1654 1 i BBS #FABSV_CBT,FABSL_FOP+STICKY_FAB2,CBTOK 


N 3 
RMSTEST USER ROUTINE TO CALL AND TEST RMS ; 16-SEP-1984 01:44: AX/VM 
028 Be 04:31:93 LOEt 


v04-00 p 1 
~SEP-19 mS age 4) 


$ nec 
P.SRCJRMSTESTO.MAR; 1 


1688 ; mead FIELD <CBT BIT CLEAR, THEREFORE> 
11 £604 CF 4320140~—COE1 «so 1C3B «1004 BBC #FABSV_CTG, FABSL_FOP+STICKY_FABZ,CTGOK 
C41 5 ons FIELD <CTG BIT SET, THEREFORE> 
E6B9 CF 00008000 BF CB 1535 1 5 BISL  #FABSM_DLT, FABSL_FOP+STICKY_FAB2 | 
1658 1008 SCLOSE FAB=STICKY FAB2,- ; DELETE oy FID on CLOSE 
pore 30 HERE 1885 gy _=gIPHEFON em 
1€6D 1011 TYPE <TS.DAT DELETED ON CLOSE> 
01008000 8F CA 194 1 le BICL  #FABSM_NAM'FABSM_DLT,- : for next time 
EGU? CF 1C9A 101 FABSL_FOP+STICKY-FABC 
FI7E CF OESAF CF «60DE «6109D «(1014 MOVAL NAMBLR,NAM : ditto 
1CA4 1015 FINISH <RELATED FILENAME AND DIRECTORY TESTS> 
F26A 31 1¢B5 1018 BRW CMD_LOOP 
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BLOCK 1/0 Tests 


#0, TSTSBLOCKIO 


CMO_LOOP 


TEST 3 


RELATIVE Tests 
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#0 ,RMTSTEST 
CMO_LOOP 


RMSTESTS 


INDEXED Tests 


#0,RMTSINDEX 
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2-0-0 
me cee ce eel ce ce ce ee ee ce ee me ee ee eB ee ee ee ee eed ed od dd dd od ed 3 dd dd 3 
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4: 
BRW CMD_LOOP 


FLUSH and FHC XAB Tests 
TEST 4 


Sete Sete Ge 


TSTSF: 
CALLS #0,RMTSTEST_4A 
BRwW CMD_LOOP 


MAGTAPE Tests 
TEST 6 


TSTSMTAPE : 
CALLS 4#0,TSTSMTA 
BRW CMD_LOOP 


: NETWORK Tests 
TSTSNET: 


ogee CALL until TSTSNETWORK is i 
revent an undefined symbol at | 
CAL S #0, TSTSNETWORK 


emented 


mpl 
i te -time 


ABORTP: BRW CMD_LOOP 


PRINT or SUBMIT OUTPUT File 


T 


10$: CMPB CMDBUF ,#*A/S/ 


UETP.S ae 


STSPRINT: 
PROMPT <PRINT hg OR SUBMIT COMMAND FILE (S)?>,NULL=ABORTP 
cre MOBUF ,#°A/P/ 
2 agte #F ABSM_SPL,FABSL_FOP+OUTFAB 
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RASTEST USER ROUTINE TO CALL AND TEST RMS ; 16-SEP-1984 01:44: AX/VMS Macro V04-00 Page 24 
OB ~SEp=19be Ui3ti8 HOETP. $C RMSTESTO.MAR; 1 . ah 


BD i 1D3F 1133 BNEQ ABORTP 
E476 CF 00004000 BF CB 1041 1134 BISL2) #FABSM SCF ,FASSL_FOP+OUTFAB 
1D4A 1135 208: PROMPT <DELETE FILE AFTER QUEUING?>,NULL=30$ 
59 8F EDB1 CF 91 1G 11 § CMPB MDBUF ,#*A/Y/ 
ig 1D 3 11 BNEQ 0$ 
E440 CF 00008000 8F ¢ 1077 11 8 BISL2 freed DLT,FABSL_FOP+OUTFAB 
F265 1 1080 1139 30$ BRW TSTSCOPY 
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RMSTEST USER ROUTINE TO CALL AND TEST RMS ; 16=SEP-1984 01:44: AX/VMS Macro V04-00 P 5 RM 
O08 5 382 8:34:83 YOETP. SRciAMeTE TESTO.MAR; 1 — (38) vo 


: Subroutine to PRINT the EXPANDED and RESULTANT NAME STRINGS from 
: the NAM BLOCK == The address of the NAM BLOCK is found in NAM 


TSTSSHOWNAM: 
FOA2 CF 95 TSTB VSW ; long Eypeout | wanted? 
19 BLSS RTN : branch if 
54 FO9S CF D0 MOVE —_ NAM, RG i get addr of NAMBLK in Ré 
TYPE § <EXPANDED NAME STRING:> 
46 10 B ; type EXPANDED NAME STRING 
TYPE <RESULTANT NAME STRING:> 
E332 CF OS AG OO OVZBW NAMSB_RSL(R4), CMDORAB+RABSU_ RSZ 
E322 CF OOK AGO HO NAMSC™ RSA(R4) , CMDORAB+RABSL  RBF 
$PUT  RAB=CMDORAB, thke =REPORT_ERROR 
F7E7 3 BSBW sR 
0 RIN: RSB 
: PRINT EXPANDED NAME STRING 
; R4& must point to a NAMBLK 
E303 CF OB AG 9B TYPEXP: MOVZBW NAMSB_ ESL(R4), CMDORAB+RABSW_RSZ 
E303 CF OC A4 00 MOVL MSL OES ESA(R4) , CMDORAB+RABSL ~RBF 
SPUT RAB= ADORAB, ERR=REPORT_ERROR 
F7C8 30 BSBW  =s ERR 
05 RSB 
3 Routines to issue messages 
0000039 RMSTEST == 1001 : FACILITY CODE for RMSTEST 


ee ee eee ee ee ee SS SY 
MMMM M MMMM MMMMmMmmMmmMmmimMmmMmmMmmmmmmmMmmmmmMmmMmmmnoOoCOCOVVVCVCCVUVUVUVUVTUVTVUVUUTUVTCUVUVUVTUTVTS 
BREE WNW 2 SOOO TN TTT TTT HMM OU WW ococecoce cp c900 000000 


PWDWNO FY OLN F SMM AAAAAOANANAODOOWIVIIOCVVIN OF EMM O 

ee ee ee rr ee ee ee ee ee ee ee ee ee SS SY 
ee ee ee ee ee ee ee ee ee Se Se ee eS S| 
OOOO 00009000009 0909 09 09 09 09 SININI SININ NNO AAAOAOAOAAAOAUINNIANA BR RRR RRR 


NOME WO OD NO UNE WIN O OD NA UE WI OOD NAME WIN 0 ODIO NEW OOWONOUNE no 


BEGPUT:: 
00 DD PUSHL #0 3 get current TIME 
FO7E CF OF PUSHAL BEG_ DESCR 3 string sere 
; DD PUSHL : AO a 
O3€ 90001" DD PUSHL #SHRS$ 31) ) Shalala : MESSAGE cope 
00000008" GF ‘ 4 cents #4,G*CIBSSIGNA 
FINPUT:: 
00 oD PUSHL 40 ; current TIME 
FO70 CF OOF PUSHAL FIN_DESCR 3 sett descr 
DD PUSHL # : g0 13°98 
03€90001 ' 8F DD PUSHL #SHRS FapeOL +<RMSTEST*65536>+1 ; 
000‘ GF 04 F CALLS #4,G6°CIB NAL 
0 RSB 
FLDPUT:: 
- ie get: ee SUBL3 £7! .C8P) Ae 3; try to find ABS. PC of ERROR 
50 oD PUSHL R 3 save status code, if nec. 


Apgiest 


52 
FOSC f 
2'8F 
00000906 GF , 
52.6 5 
58 
FOSC CF 
01 
83 F70005" 
00000000' 33 
FOFA 
F760 


§ > CF 
E225 CF 08 
$ CF 
E265 CF C48 CF 
F72A 
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USER ROUTINE TO CALL AND TEST RMS ; 1 1:44: AX/VMS 5 cro V04-00 Page 
g-SEF P-1 71382 §: 34 33 UETP.SRC SAMSTESTO. MAR; 1 . (38) 
DD 1E6F 11 § PUSHL R2 3 PC 
DF iE 11 PUSHAL 4 D_DESCR : string descr 
DD 1€54 1200 PUSHL ; # of FAO args 
DD 1656 1 PUSHL aSHRS Pave ie LS PCORG TEST HREIION ES 3; MESSAGE | 
FB ME 1 CALLS § #4.G apse $S1G 
BA i€ 1 POPR he : restore RO 
ig 
1E é 1 : 
ie 1 5 3; Subroutine to issue ‘EXPECTED EOF NOT RECEIVED'' mesg and display actual 
ieee ; error R10 points to the structure at fault, for REPORT_ERR 
1666 1 . 
1E08 1211 EOFPUT:: 
C3 1666 1 \¢ SUBL3 #5,(SP),R2 
DD 1E6A 121 PUSHL 3; save STATUS, if nec. 
OF 1E8 1214 PUSHAL EOF_DSC : “EOF’ arg for FAO 
DD IE 1215 PUSHL #1 ; # of args, for FAO 
DD E72 1 16 PUSHL : HRS Vesey Lele tema restates : error code 
FB 1€78 121 CALLS 3,6. 18 BSSIGNA 
1E7F 1 13 POPR ; restore STATUS 
0 18) 121 BSBW REPORT. _ERR : find out what error was 
1 if $ ! y BRW ERR1 3; continue?,even if RO=SUC 
1687 1 § ; 
if 4 ! 7 ; Routine to echo the command if command output not to a terminal 
1E87 1225 ° 
E9 iEBs 1226 ECHO BLBC VERBOSITY,10$ ; omit if low verbosity 
EO 1EBE 1227 BBS #DEVSV ; or if terminal output 
1£94 1 8 CROOE ABST ASL DEV,10$ 
Al 1698 1 ADDW3 #8. +RABS$W_RSZ,- : add size of PROMPT to Len 
1E9D 1230 CROORABSRABSU a 
DE JEAQ 1231 MOVAL ECHOBF,CMDORAB+RAB ; address of output Line 
1EA 1 § $PUT ai CMDORAB, SRROREPORTS SERROR 
30 1686 1 ; BSBW ERR 
05 1€B9 1234 10$ RSB 


z | 
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aagtest USER ROUTINE TO CALL AND TEST RMS ; 19736-1384 aT | AX/VMS Beer] Y04-08 Page 3 


UETP. SRC TO.MAR; 1 1) 
99000003 1EBA 1 : -MDELETE SAB. SRAB $NAM 
EBA “MDELET FAB. STORE, $NAM_STORE, $RAB_STORE 
1EBA 1239 ; 
1EBA 1240 : 
1EBA 1261 : 'H’ Switch for HELP !!!!!! 
1EBA 1246 
1EBA 1204 
1EBA 1 44 HELP: 
03 00000000' EF 5 1EBA 124 BLBS VERBOSITY, 10$ 
FOE2 1EC1 1 46 BRW QMARK 
1EC4 1267 10S: 
1 4 1 48 . SAVE 
0000 124 “PSECT __SRMSNAM 
a- | 9 HLPMSG: 
OD 44 4E 45 50 50 41 20 2D 2p 20 41 $f 105 .ASCIL /A == APPEND/<13><10> 
49 20 4B 43 4F 4C 42 20 p p 20 42 fs 1252 .ASCII %B == BLOCK 1/0%<13><10> 
OA oD 59 50 4F 43 20 2D 20 a 4 1253 LASCII /C == COPY/<13><10> 
A OD 4 23 42 45 44 20 2D 2D 20 46 F 1254 “ASCII /D == DEBUG/<13><10> 
0 48 53 55 4c 46 24 20 2D 2D 20 46 1255 “ASCII /F == SFLUSH AND FHC XAB TESTS/<13><10> 
0-42 G1 58 20 Or OD $8 Se $3 8 So OSes 
C 41 52 45 4E 45 2 D 2 é 47 038A 1256 .ASCIL /G == GENERAL SEQUENTIAL TESTS/<13><10> 
0 4C 41 49 54 aE 43 } i ; 20 i 
45 4D 20 53 49 48 9? 20 20 2p : 48 309 1257 .ASCII /H == THIS MESSAGE/<13><10> 
20 59 4B 43 49 54 of 20 20 2 9 48 36 1258 -ASCIL /K == STICKY CREATE,DIRECTORY TESTS/<13><10> 
a5 43 50 49 44 Bc 05 $4 1 G5 $2 08 Osts 
4C 41 32 45 4E 45 47 $8 20 é 9 4C 0410 1259 .ASCII /L == GENERAL RELATIVE TESTS/<13><10> 
45 54 20 45 56 49 54 41 C 5 2 g ic 
45 50 41 54 47 41 4 20 ; 2 20 40 $30 1260 .ASCIL /M == MAGTAPE TESTS/<13><10> 
20 54 45 4E 43 43 44 20 p 20 20 iF 441 1261 .ASCIIL /N == DECNET TESTS/<13><10> 
49 57 20 59 50 4F 48 2 20 D 20 4F 0454 1262 .ASCII /O == COPY WITH CHOICE OF FILE ORG FOR OUTPUT FILE/<13><10> 
46 4F 20 45 43 49 GF 48 43 20 48 54 0460 
4F 46 20 47 22 4F 20 4 4¢ 9 46 46¢ 
4C 49 46 20 54 55 50 54 5 oF ; 4 
4F 20 54 4E 49 52 50 2 2p 20 " 2 a8 1263 .ASCIL /P == PRINT OR SUBMIT COMMAND FILE/<13><10> 
- OA $e f ze 49 tb 44 4E 41 19F 
4E o8 99 20 4F 2F ‘3 2p 20 i AA 1264 .ASCIIL %R <= 1/0 RUNDOWNS<13><10> 
46 45 44 20 54 45 of 6 gD D 20 5 4B¢ 1265 .ASCII /S -= SET DEFAULT NAME STRING/<13><10> 
54 53 20 45 4p 41 4 34 4c 33 i cs 
46 45 44 20 54 45 3 ? 2b 55 4DA 1266 .ASCIL /U == SET DEFAULT UFD/<13><10> 
20 59 46 43 52 § 8 p é0 5 if6 1267 .ASCII /V == VERIFY FILE SPECIFICATIONS/<13><10> 
49 46 49 43 & 36 C 49 & arc 
OA OD 53 4E GF 49 54 41 43 050 
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TUTTE eg 

a H5 68 ES GF ae . LL ER L S ARE INVALID/<13><10> 
OA OD 44 4 $5 

Eesr ff B 367"EF 0D 


1€1 BF OB 


O59 $f 


} 


RESTORE 
OVAL RAB+RABSL_RBF 
MOORAS ABSRABSW_RSZ 


R=REPORT_ERROR 


} HLPMSGSZ=.-HLPMSG 
i 
He 

He 


SSNs 


BRW CMD , oer 
~ END STAR 


SEP-198¢ 04:01:83 EUETPrSRCSRMSTE STO“ RAR: 1 


re Sh 


f 


4 


RMSTEST 


USER ROUTINE TO CALL AND TEST RMS 


a 
a) 
me] 

oe 

6 
2 

Ee 

~ 
” 


ee ee eee 


OSooooooce0ceo co 


SOHO OHHOHHGHHAHHHHHHHHAHGHoHoHHoHHGSHSAHHHSHoHHHoGHHBHGAHGHBAoaaaaSaABBaBaaaAaAaGa 


yuyo o oo oo 
@Qeanacaacaeacaanc aca 


SOSOOOOSOSOOS SOSCSSCSOSCSSOOOSOSOOOOSOSCOSOOOOOOONOCOOK OOOO 
SSSOOOSSOOOSSOSOSOSSSOS SSooooooooooooe ooo COS SSO SSS OSS So SS Sees 


=z =z ive} ‘ 
WYUNOrZozxidc 


aI JI I IEE aS KT EEE Soo See ee oe oss 
BOMwoC0kaA |! —MOwwKVKHAA isebanenababekebabanibanie een ene eek 


-— w Suh seth seth, seth seh seh seth seth, seth seth mee seh seth eth peat seat eth seh sre meme seth seth, pth eth peat sae dh ee me pee th seh shh me ee 

oo o OOCOCOOOCOCOSOSOSSOSSOSOOO COCOOCOCOOCOOSOSO NOOOCOSOOOCOoOOoOO 

aooa aa aoa 22888888288828888468884444848448484828886,_ 222 
yuo oVouvuvue”U oo 

ca a @ancaeaeacaeoeaeaeeaeaacaaan aecacaacaacaeanca cacacecae eacae 


OvVVvNu -Owoeoso-Ounrw Re 8 SNe Bree . w~7c0 
ONDOOVWMN— — —- O Ovvueu oer fOr) oo eo ONUAIIED &. O LWA LWIA i. OO UAW i 
BOR ATA swe coo e a Ann Ou eure os ov 


SOOSSCSOSSOSOSOSSOOO— Ke COR eee Kee COSCO SSOOS6—-- SOOO Oe — # SSO 
SSSSSSSSSSSSSSSSSSOOOSCOSSOOCOCOSCOSOOCOSSSSOSOSSSSOOOSSOSOSOS «Soo 
SSOSOSSOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSSOSSSOSSSSSSSSG #Soo 
SSOSSOSSSSSSSSSSOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS «Soo 

SOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS «Soo 


$SRMS_UMODE 
. AFLG 
DEVSV_TRM 
DIRBUF 


ES 


Page ay 


_- 
** 
a 
be 4 
ot a 
oOo - 
‘co o 
wre 
ow 
>uw o 
= ww 
ou See e ere SS OOM OC rer KO 
== oooo[oo ooo oOo COOCOOCOO a oo 
Vv 
or o 
ZY AB2OOfGOKHOOHGOKBAKAHKHAKAOOAGBOHOAOAHAHAAOAaAaoBAOnBAaAaBaoAaAAaAAAAAd o aaaa 
a >< OC OE OC OE HCO OC OE OK OK 
wn vovuwo o oo uuoo uo 
Ss. eacacaer Qee eene efaeacaeaeacae eae " ec cc 
~~ pw ap AN ee ee DO -ODBWUUVOASWMACKOOOC avVOUNTK—OMOe ee eee ee # # VOOw 
= Dorr <n Ovo DOCS K-OUNNDAD— VOVOM ODOR OTORCeeeen a ee 2 fumou 
< pas te Seth 0 ooo oo oo oe + oa oo oo eimai oth > hfe he on | ee enennen #22 #« OOO 
Dl —-Om— COOOCOSSOSSCSO -COCSSCSG em ererere-COCOe ee Fe ee 2 ¢-O0O- 
OOOOCSGOSCOOOOOOOOSOOOOOOOCOCOCCOCOO ez ex x se # OOOO 
SOQCOOCCOOCOSOCOGSOOOCOOCOOOOOOOOOOOOOOOOOOOOCOCOO ez aa ee #4 «OOOO 
KKH CSOCCOOOCOOSOOCOOCOSOOSOOoOOSOoOSOoOoOSoOSoOoOSoOOoOSoO COoooec#rtrs ## # se # #£OOooo 
ver OQOooCooooocceocoo Oooornenr ea # ese © OOOO 
SS Aad nHhnnnnnnnnnnnnnnnun " " " “ 
wn 
, ate 
oo 
ww 
ooa 
an 
-— 
ss 
aa 
peers 
mw 
$e Lad 
own ” 
- uw 
_— 
ww 
w ox 
~ [- 4 a wa 
wr , _ So ws nM wack 
< en — ee — 1: 2 = 4 _ <= ms 
. eNVOZSG Muu hNruwre =z ‘= 22a <= Zw wt) 
oe aude Uw OMDOrvrVo0okrwnw Zz + wwe wuss Wewwea wrk Oo 
MASE MOOMvVA&GaVietwwt oe woot | see SO2893 mun a 
aooauw #eeecueeepeeceee 6 ttt oe SWE er Ee Oa 7) ww MeO 
<“—25VUM DMOOVVV IIE Soo ssw bt er ar wt tt treet + (080 tt ——ee— 1-925 «1 
BEM EF AGAARABDMADAHDAAARKHABMA L Wwdms tt (tee ¢@ 3: DMKHAHRLHARH BH#LHGHA MDMOw 
——-—VOA<f DOOMOOMOMOOOAOOOOMOS VEZ JI jjTZOLAaAaaGCKnvwoavwivnvivinivVe reek &-— Zov=z 
DSDBZOB ade eee ee ee eee COO COOWWWWWWWWWWwwa TEESE ESE EOLEI Es 3B3=< 
ooaacaacacacaacaacaaacaacaacacaacacancancaaaaeaaeaacaanaacaacaac aeaaeaeaeacacw 


SS OE TF ee 


Ooooooccoo COCO COO OOOOOCOO 


OGOOSSSSOoS « GOOSOSCSCOSCSCSCoSooe 
“un u “ u 


USER ROUTINE TO CALL AND TEST RMS 


fm} 
<= 
aw _ ve) a<« 
— + wn wo 
2 z af a >a 
oo -w4 <= ae VY 4 ave IvoZzx<aoatvu.3 io 
~~ = w viz ~ wi tj NNGDYNN BWEHZKHVO 
_- -= "no F>PeUwhlUw ” soa aw WwWEeeoaktwu &BiIBu 
na (eee weewse J 3 [TUT 4.4.4 Wile (eee eepreeeesee & @e 
wo Bor DODO — SS er ar & bere 4 wuwv awJI> > 3 
-2 A0Dvn 8&8 Mon ae ene w Mu BAD A 
“Ee 2 O2ZZoOoOGee &— 3480 Je ee ew 
Q weeeeeseevuuu SSO rt tt tt os z 


oSoooocooo « SSSSSSssssssss a SSSSSSSSSssssSsSSsesSesseses 
+ SOSCSSSSSOSOOSOOSOOOOSOSOOSoSOoOo 


f=] 
f=] 

BBBBAASNGE ,_ 2OBBBB28880486 ,, SOOBBSBSAALSL“L“SISSASSAAASSSAQASOS8882 
Oo ovuvuY wow o ouoVo uo 
@Qeeacanc & a@eacae ea eacaeac cx Seececaenc eacaecaece 

MOVTOVODO € Fue VN EE TPR. DDO ¢ OVD LOMO & OV FT OWOTOVUUIO OO ee ee 

SMM IM ££ ~F DM F FTMOODOWOVOW OMe OOOO CuLOMOoMO cvucococoums 8 WPRICU Tale 

WPOOSo <Oowwsnowde 


Ss oooooooo 

= 

4 

S 

- 

S88 

S a25te2 
4 o as aad 
Sox¥seecsa 


RMSTEST 
Symbol table 


SAVE _FID 
SEM 


R 
SHRS UNXPCTSTS 
SHRSTRT 


SOK 
91 gece 


SY AM 
SYSSRMSRUNDWN 
SYSSSEARCH 
svezesigee® 
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PRINT 
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USER ROUTINE TO CALL AND TEST RMS ; 


RMSTEST 16-$ 4: AX/VMS 
Psect synopsis g-S6F =}382 8} 34 :¢3 UETP. Sac 
pew ecreee see ence a ae 
H Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
S 0 89008 ( g.} 0 ¢ 9} NOPIC USR CON ABS ~ LCL NO te NOEXE 
RMSTEST 0 33 ( 7913.) 01 ¢ +1.) NOPIC USR CON REL GBL NOSHR- EXE 
s$ 0 . 0 ¢ oi ¢ ( §°) NOPIC USR CON ABS LCL NOSHR- EXE 
SRMSNAM 0000044 ( g ol ( 3.) NOPIC USR CON REL LCL NOSHR- EXE 
SRMSNAM 00000548 ( 1352.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR- EXE 
es 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.09 00:00:00.53 
Command processing 134 00:00:00.59 00:00:01.90 
Pass 1 425 Bp BR: +88 EY Be D 
Symbol table sort 0 00:00:00. 0:00:02.00 
Pass 2 336 BF BR? 83 20 Se ee ORT 
Symbol table output 39 Bp: 0: §. 8 00:00:00.73 
Psect synopsis output 5 B38: RR. 5 00:00:00.11 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 978 00:00:28.91 00:01:09.21 


The so¥erking ses yt was 900 pages. 
bytes (215 pages) of virtual. memory were used to buffer the intermediate code. 
there were 40 pages of symbol table space at tocated to hold 672 non-local and 50 local symbols. 
source Lines were read in Pass 1, produc 8 object records in Pass 2. 
53 pages of virtual memory were used to define 7° macros. 


ee 


Macro Library name 


eiiiteyys (sys. OBJILIB mB: 1 1 
SYSLIBISTAR ARC Es -MLB;2 35 
sath (all libraries) 36 


1012 GETS were required to define 36 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSTESTO/OBJ=OBJ$:RMSTESTO MSRC$:RMSTESTO/UPDATE=(ENH$:RMSTESTO) +EXECML$/LIB 
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MSTESTO.MAR: 1 ve 34, vo 
NORD NOWRT NOVEC BYTE 
RD WRT NOVEC LONG 
RD WRT NOVEC BYTE 
RD NOVEC BYTE 
RD WRT _NOVEC BYTE 

cc 

BE 
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